﻿Public Class mainFrm
    Dim result As String

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim searchSeries As New searchSeriesFrm
        result = searchSeriesFrm.ShowDialog()
        If result = vbOK Then
            MsgBox(searchSeries.SelectedSeries)
            addToOwnList(searchSeries.SelectedSeries)
        End If
    End Sub

    Private Sub mainFrm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub
End Class